home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
BMUG Revelations
/
BMUG Revelations.toast
/
Programming
/
Programming Languages
/
Yerk 3.64
/
Asm source
/
buildops
< prev
next >
Wrap
Text File
|
1986-03-14
|
687b
|
28 lines
\ Build Ops Reese Warner 4/85
50 dictionary operands
: BuildOps { \ opPtr -- }
query: topfile drop
BEGIN
word" count put: token
heap> operand -> opPtr
@word number drop setMode: opPtr \ get mode
@word number drop setReg: opPtr \ get register
opPtr token enter: operands
query: topfile
UNTIL
;
: LoadOps { addr len -- }
new: loadfile addr len name: topFile \ open "operands"
open: topFile
0<
IF
206 asmError \ check for bad file
THEN
buildops
close: topFile drop \ close operands
remove: loadFile
;